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;MICROCODE FOR TRYDENT'DISK CONTROLLER 
j^ALTODEF.SY; 



October 3,1975 11:48 AM 



TRIDENT DISK MICROCODE 
TRIDENT DISK MICROCODE 



TASK 05 - SERVICE OF OUTPUT FIFO 
TASK 17 - SERVICE OF INPUT FIFO 



PROCESSES A KBLK (IN PAGE 0) WHICH LOOKS LIKE: 

640 POINTER TO DCB 

641 LAST DRIVE SELECTED 

642 LAST TRACK SELECTED 

643 STATUS AT SECTOR MARK 

PROCESSES A DCB WHICH LOOKS LIKE: 

DCB TRACK ADDRESS 

DCB+1 HEAD(LEFT BYTE), SECTOR(RIGHT BYTE) 

DCB+2 DRIVE SELECT 

DCB+3 POINTER TO NEXT. DCJ__ 

DCB+4 F-IR^-T-eOMMAND— --— ' 

DCB+5 WORD COUNT o ■ 

DCB+6 MEMORY ADDlRESS FOR DATA TRANSFER V"' 

DCB+7 ECCO - TO BE FILLED IN BY READ TASK ' 

DCB+8 ECCl- TO BE- FILLED -IN-BY READ TASK 

DCB+9 STATUS AT END OF TRANSFER 

^D.GB+10,; INTE,R'RUPT MASKF-" 



**SPECIAL FUNCTION 2 DEFINITIONS** 



"F00<-KSTATUS" 

"MD«-KDTA" 

"KTAG<-FOO" 

"KDTA^FOO" 

"WAIT" 

"CLRFIFO" 

"CLRERR" 

SKSTATUS $L66010. 
SKDTA SL26Q13, 
SKTAG SL26012, 
SWAIT $L24014. 
SCLRFIFO $L24016, 
SCLRERR $L24017, 



READS THE STATUS 
READS A DATA WORD 
WRITES A TAG INSTRUCTION 
WRITES A DATA WORD 
IS IDENTICAL TO 'BLOCK' 
RESETS THE INPUT FIFO 
RESETS THE ERROR FLIP-FLOPS 



F2 = 10 



F2 = 


06, 


BUS = 2 


F2 = 


12 




F2 = 


13 




F2 = 


14 


OR 15 


F2 = 


16 


F2 = 17 



66010, 
14002, 
00000, 



000100 

124100; 

124000; 



00000, 00000; 
00000, 00000; 
00000, 00000; 



DF2=10 (RHS) 

DF2=13 (LHS); BS=2 (RHS) 

DF2=12 (LHS) REQUIRES BUS DEF 

NF2=14 

NF2=16 

NF2=17 



**HANDY CONSTANTS** 



$600 


$600; 


$601 


$601; 


$602 


$602; 


$603 


$603; 


$4000 


$4000; 


$10000 


$10000; 


$177777 


$177777 


$177700 


$177700 


$170000 


$170000 


$66000 


$66000; 


$-5 


$177773 


$TAGMASK 


$17777; 



**R REGISTERS** 
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$ACO 


$R3; 


$REG36 


$R14; 


SLREG 


$R40; 


SDCBPTR 


$R41: 


SFROM 


$R42; 


SLASH 


$R43; 


SKTEMP 


$R44; 


$DCBPTR/R 


$FROM/R 


$R46; 


$LAST1/R 


$R47; 



$R45; 



♦♦PREDEFINITIONS FOR THE FIRST 16 INSTRUCTIONS** 

!17,20,FIXECC,RANDOM,COMPAIR,WDSKBGN,I4,I5.I6,I7,I10,I11.I12,I13,I14,I15,I16,RDSKB 
**GN; 
START: NOP; RETURN TO EMULATOR 



**PREDEFINITIONS FOR TEST CONDITIONS** 

1,2,DCB+3,D0NE; 

1,2.SENDTRK.HEADSEL; 

1.2,R/WC0M,KBLK-1; 

1,2,CKSEC,N0WAIT; 

1, 2, CKMASK, SECTOR; 

1,2,LOOP1.SECOK; 

1,2. MASK, NOMASK; 

1,2,SCGMM.RECHECK; 

1.2.PASTSEC,SC0M; 

1,2, READ, WRITE?; 

1,2, WRITE, NO-R/W; 

1.2,C0NT/W,D0NE/W; 

1,2,READNXT,READ1ST; 

1,2, CHECK, DCB+4; 

1,2,END/CK,CNT/D0NE; 

1.2,SEND/CK,WDS/D0NE'; 



WDSKBGN 



T«-77777; 
L<-10 XOR T; 
RMR<-LREG; 
L«-0; 
DCBPTR/R<-L 



MAKE BOOT VECTOR OF 77767 

SET BOOT LOCUS VECTOR 



DONE; 



DONE: T<-603, WAIT; 
MAR*-40+T; 
L*-KSTATUS; 
MD<-LREG; 



UPDATE THE STATUS AT 643B 



T*-600; 
MAR«-40+T; 
,TASK,CLRERR; 
MD*-0, :KBLK; 



KBLK-1: KTAG*-66000; 
KBLK: T*-600; 

MARMO+T; 

KTAG<-0; 

L«-MD+1.BUS = 0: 

DCBPTR<-L,:DCB+3; 



TURN OFF CONTROL FUNCTIONS 
SEE IF THERE IS A COMMAND 

TURN OFF LAST KTAG COMMAND 
CHECK FOR NO COMMAND ADDRESS; NO TASK! 
IFSO GOTO DONE 
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DCB+3: 



T«-2: . 

MAR«-DCBPTR+T 

T<-600; 

L<-MD; 

MAR<-40 + 

.TASK; 

MD*-LREG; 



T; 



GET CHAIN ADDRESS 



PUT ADDRESS IN KBLK 



DCB+2: MAR<-DCBPTR+1; 
" T«-7777; 

L*-MD AND T; 
KTAG«^LREG: 
T<-601; ' > . 
MAR«-40 + T; 
.TASK; 
_MD<^LREG ; 

D^CB+IL: MAR«-DCBPTR; 
V T<-177400; 
L*:MD AND T; 
REG36«-L LCY 8; 
Tt400b0; 

,LVreG36 OR T. TASK; 
. KTAG«-LREG; 



GET DRIVE SELECT 



UPDATE KBLK+1 



GET HEAD SELECT 

LEFT BYTE ONLY 



DCB: MAR«-DCBPTR-1: GET TRACK SELECT 

T<-7777; 
L«-MD AND T; 
T*-602;' 
MAR«-40+T; 
KTEMP*-L; 
T^-KTEMP; 
L<-MD-T; 

L^ZOOOO OR T,SH=0; TEST FOR SAME TRACK ADDRESS 
•.:SENDTRK; IFKSO GOTO HEADSEL 



SENDTRK: 



HEADSEL: 



KTAG<-LREG; 
T<-602, WAIT- 
MAR*- 40 + T; 
MD^KTEMP; 
KTAG«-0; 
T«-10; 
T«-4 OR T; 
LV66000 OR T; 
KTAG'^LREG; 
L<-0; 
LAST1<-L; 



WAIT UNTILL POSITIONING DONE 
UPDATE KBLK+2 



CLEAR COMMAND REGISTER 



SEND HEAD SELECT COMMAND 
WAIT FOR NEXT SECTOR 
'LAST1'=0 MEANS 1ST BLOCK 



T«-3 ; 
DCB+4: MAR<-L*-DCBPTR+T; 
DCBPTR<-L; 
L<-MD-,BUS = 0; 
KTEMP<-L,:R/WCOM; 

R/WCOM: T*-100; 

T*-200 OR T; 
L<-KT£MP AND T; 
,SH=0; 
L*-ONE, :CKSEC; 

NOWAIT: LAST1<-L; 



TEST FOR ALL ZERO COMMAND WORD 
IFSO GOTO KBLK-1 



TEST FOR NO READ/WRITE COMMAND 
IFSO GOTO NOWAIT; 



CKSEC: SINK^LAST1,BUS=0; TEST FOR FIRST BLOCK 

,:CKMASK; IFSO GOTO SECTOR 
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SECTOR: 


NOP; 


LOOPl: 


.TASK; 




NOP: 


' 


T*-3: 




MAR<-DCBPTR-T; 




T ♦- 17; 




L<-MD AND T; 




T«-KSTATUS.T: 




L<-LREG-T,WAIT; 




T*-4,SH = 0; 



WAIT FOR NEXT SECTOR 



GET SECTOR COUNT 



TURN OFF WAKE UP /TILL SECTOR 
CHECK FOR NEXT SECTOR OK 



SECOK: 

CKMASK: 
CKMASK+1 



NOMAS K: 
MASK: 



L*-170000 OR T.: LOOPl ;IFSO GOTO SECOK 

KTAG*-LREG; 

T<-KTEMP; 

L<-100 AND T; 
T*-7400.SH = 0; TEST FOR NOT A READ COMMAND 
T*-177 OR T,:MASK; IFSO GOTO NOMASK 



T<-7777; 
T«-KTEMP.T; 
L*-66000 OR T; 
REG36<-L; 



IF A READ THEN TURN OFF WRITE 



SINK«-LAST1,BUS = 0; TEST FOR FIRST BLOCK \ 
.:SCOMM; 



RECHECK: 



T*-3; 

MAR*-DCBPTR-T; 
T <- 17; 
L<-MD AND T; 
T<-KSTATUS.T; 
L<-LREG-T; 
,SH = 0.;' 
.:PASTSEC; 



PASTSEC: .WAIT, :SECTOR; 



\ SCOMM; 
SCOM: 






NOP; 

KTAG*-REG36.TASK; 

NOP; 



IFSO GOTO RECHECK 

GET SECTOR COUNT 



TURN OFF WAKE UP TILL SECTOR 
CHECK FOR NEXT SECTOR OK 
IFSO GOTO SCOM 

RESTORE DCBPTR AND RETURN 



SEND MODIFIED COMMAND 



/ 





i^r-^^^' ^oo 



T<-KTEMP; 
L<-100 AND T; 
,SH=0; 
. :READ; 



CHECK FOR NOT A READ COMMAND; NO TASK! 
IFSO GOTO WRITE? 



WRITE?: L<-200 AND T; T STILL CONTAINS COMMAND 

,SH = 0; SEE IF /THERE IS NOT A WRITE COMMAND 
.:WRITE; / IFSO GOTO NO-R/W 

; ■•'' 

NO-R/W: L<-DCBPTR+l,WAiT; WAIT TILL COMM IS ISSUED 

DCBPTR<-L; / 

.TASK; SEND AND INVALID TAG 

KTAG<-2,:DONE/W+2; 

/ 

WRITE: MAR<-L<-DCBPTR+1; 
DCBPTR^rL; 
L*-T<-MD' + 1 ; \ 
KDTA*-1rEG; "^ 
MAR<-L<-DCBPTR+1; 



\, 



GET WORD COUNT+1 

NOW GET THE MEMORY ADDRESS 
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« 


T<-5 + T + 1; 

KDTA<-ONE; 

L*-MD; 

FROM«:L ; 

L^FROM+T.TASK; 

LAST1<-L; 






SEND THE START BIT TO DISK 
FROM = FIRST ADDRESS 
LASTl = LAST ADDRESS-4 


tOOP/W:' 
CONT/W: 


MAR*-T<-FR0M; 

L^LASTl-T; 

L*-2+T.SH<0: 

FROM<-L, : CONT/W; 

KDTA<-Mb; 

KDTA*-Mb,TASK; 

,:LDOP/W; 


SEE 
IFSO 


IF YOU ARE WRITING THE LAST WORDS 
GOTO DONE/W 


DONE/W:/ 

/ 


'KDTA<-MD; 
KDTA<-MD; 








DONE/W+Z 
DCB+9 : 

i ■' 
/ 


:'T^'177700^ 
L<-KSTATUS AND T; 
TM; 

MAR^DCBPTR+T; 
L^LREG + l.TASK: 
MD<-LREG; 

T*-5. :DC3+4: ; - 






PUT STATUS IN KTEMP 
SUCH THAT GOOD STATUS = 1 
SKIP ECC WORDS 
UPDATE STATUS 



READ: SINK^D.CBPTR/R,BUS = 0; 

L<-DCBPTR, :READNXT; 

READIST: DCBPTR/R*-L; 



CHECK FOR FIRST READ COMMAND 
IFSO GOTO READIST 

SET READ DCB POINTER 



READNXT: 



MAR*-L<-DCBPTR+1 
DCBPTR^L; 
L<-MD,TASK; 
LASTK-L; 



GET WORD COUNT 



SAVE WORD COUNT 



L<-LAST1+1; 
KDTA*-LREG; 
T<-KTEMP; 
L«-200 AND T 
T<-5,SH = p; 
.:CHECK; 



ALLOW FOR 2 WORDS OF ECC 
SEND WORD COUNT+1 



TEST FOR NO CHECK COMMAND 
IFSO GOTO DCB+4: 



CHECK: 



MAR*-DCBPTR+1/ 

T«-LAST1-1; / 

L<-MD+1 ; 

FROM*-L; 

MAR«-FR0M-1; 

L«-FROM+T: 

LAST/<-L; 

kd];a*-md,task: 

KDTA^-MD; 



:/MAR<-L<-T«-FF 



GET MEMORY ADDRESS 



SAVE ADDRESS-1 



L00P/CK:/MAR<-L<-T«-FR0M+1 ; 

FROM*-L; 

L«-LAST1-T-1; \ 

,SH<0; ' TEST FOR LAST WORD 

L*-MD,BUS = 0, :END/CK;IFSO GOTO CNT/DONE 
; TEST FOR ALL ZEROS DATA WORD 

END/CK: .TASK, :SEND/CK; IFSO GOTO WDS/DONE 



SEND/CK: KDTA*-LREG, : LOOP/CK; 
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WDS/DONE:NOP; 
CNT/D0NE:T*-5,:DCB+4; 



INSTRUCTION AFTER A TASK 
MUST JUMP TO ODD ADDRESS 



V 



u 



\ 



************NOW START THE READ TASK MICROCODE************ 



**PREDEFINITIONS FOR TEST CONDITIONS** 



1. 2, GETCNT. DISCARD; 

1.2,C0NT/R,D0NE/R; 

1, 2, RDSKBGN+1, FINISHED: 

1.2.ECCER.DCB+10/R; 



RDSKBGN: MAR<-L*-DCBf?TR/R+l,BUS.= 0; SEE IF THERE IS NO DCBPTR 
RDSKBGN+1 :DCBPTR/R«-L.:GETCNT; IFSO GOTO DISCARD 
GETCNT: T«-MD-1; FIRST GET COUNT-1 

MAR*-L<-DCBPTR/R+1; NOW GET THE MEMORY POINTER 

DCBPTR/R<-L; 

L<-MD-1; 

FROM/R*-L: 

L*-FROM/R + T.TASK; 

LAST1/R<-L; 



LOOP/R: MAR*-L<-T*-FR0M/R+1; 

FROM/R<-L; 

L<-LAST1/R-T; 

,TASK.SH<0 ; SEE 

MD*-KDTA, : LOOP/R; 
LOOP/R: MAR*-T*-FR0M/R+1; 

L*-LAST1/R-T-1; 

L*-ONE+T.SH<0: 

FROM/R<-L, :CONT/R 
CONT/R: MD*-KDTA,TASK; 

MD*-KDTA, : LOOP/R; 

DONE/R: MD*-KDTA; 
Mp<-KbTA; 



IF WRITING THE LAST WORD 
IFSO GOTO DCB+6/R 



SEE IF YOU ARE WRITING THE LAST WORDS 
IFSO GOTO DONE/R 



-SINCE THIS MIGHT BE THE END OF READING, 
THE READ-TASK WAKE-UP MAY NOT BE ACTIVE, 
SO THERE MUST NOT BE A 'TASK' UNTIL ALL PROCESSING IS DONE. 

-THIS IS THE HIGHEST PRIORITY TASK, SO IT WOULDN'T HELP ANY WAY, 



DCB+6/R: T<-KSTATUS; 

L«-177700 AND T.TASK; 
FROM/R<-L; 



MAR*- DCBPTR/R + 1; 

L<-FROM/R +.1; 

MD<-KDTA; /■' 

MAR*- DCBPTR/R + 1; 

FROM/,Ri-L; 

MD^tKDTA; 

MAR*-L*- DCBPTR/R + 1 

DCBPTR/R«-L; 

MD<-T<-KDTA; 



THERE NOW MUST BE 4 WORDS LEFT 

TURNS ON BIT 15 

NOW ENTER THE FIRST ECC WORD 

SAVE ECCO IN T 
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DCB+7/R: MAR*-L*- DCBPTR/R + 1; ' NOW ENTER THE SECOND ECC WORD 
DCBPTR/R<-L; 

, MD«-l*-KDtA OR T; MD*-ECC1; L*-ECC1 % ECCO 

\ ;v'^ ,/'T*-10,SH = 0; TEST FOR ZERO ECC CODE 

) -■ , './TT L«-FROM/R OR T,:ECCER; IPSO GOTO DCB+IO/R 



r-r- 



\ 

I, 



ECCER: FROM/R<-L; 

DCB+IO/R: MAR*-L<-DCBPTR/R+1; 

DCBPTR/R«-L; 

MD^FROM/R; 



UPDATE STATUS 



MAR«-L*-DCBPTR/R+1; NOW GET THE NEXT COMM 

DCBPTR/R«-L; 

T<-100; 

L*-MD AND T; 

,SH=0; SEE IF THE NEXT COMM IS NOT A READ 

MAR*-L<-DCBPTR/R+1, :RDSKBGN+1; IFSO GOTO FINISHED 



FINISHED:L«-0; 

DCBPTR/R<-L,TASK; 
SINK<-MD, :RDSKBGN; 



DISCARD: L<-0,CLRFIFO; 
DCBPTR/R<-L; 
.TASK; 
. :RDSKBGN; 



THROW AWAY ALL WORDS 



************NOW START THE ECC MICROCODE ROUTINE*********"? ** 
^JUMPRAM(O) / 

\ 



ACO!0 
AC0!1 



NUMBER 
REFERANCE 



$NUM\ SR50 
SREF \ $R51 
$COUNt\ SR53 



**PREDEFINITIONS FOR TEST CONDITIONS** 
\ 
MINIMUM EXECUTION TIME - 20*. 17 = 3.4 US 
MAXIMUM EXECUTION TIME = (11 + ( ( 10+ll)/2)*2046*) . 17 = 3654 US 

1.2,C0NTECC,SAVENUM; 
1.2, SHIFT, EXITEGC; 
1,2,C0NT2,ECCERR0R; 
1,2.X0RBITS,N0X0R; 



FIXECC 



MAR<-AC0+1; \ / GET REFERANCE NUMBER 

T*-3777; 

L«-MD AND T,BUS = t\;TEST FOR REF = 

REF<-L.:CONTECC; A IFSO GOTO SAVENUM(ie EXIT IMMEDIATELY) 



CONTECC: MAR«-ACO; 
L<-0; 
ACO«-L 
L*-MD.TASK/; 

SAVENUM: NUM«-L 

T«-ACO 
L<-406o-T; 
T<-REF,SH<0; 
l/nUM-T. :C0NT2; 



C0NT2: 



L<-NUM,SH = 0; 




GET NUMBER 



TEST FOR OVER 2047 LOOPS 
IFSO GOTO XCCERROR 

TEST FOR DONB^^ 
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REG36<-L LSH 1 , :SHIFT; IPSO GOTO EXITECC 

SHIFT: TMOOO; 

L«-REG36 AND T; 

L«-ACO+i,SH = 0: / TEST FOR NO END AROUND BIT; 
v^ AC0^L,:XORBITS; IFSO GOTO NOXOR 

NOXOR: L«^REG36<fASK,:SAVENUM: 

XORBITS: J*-'4+T+l; "^^.^ MAKE T = 4005 
/L*-REG36 XOR T>T^SK, :SAVENUM; 

ERROR: NOP; 
EXITECC: .SWMODE; 

,:START; RETURNS THE NUMBER OF SHIFTS 



RANDOM NUMBER GENERATOR INSTRUCTION - ACCESSED THROUGH 
JUMPRAM(2) 

SCONST $R50; 
SFROMR $R51; 
STOR $R52; 

!1,2,ST0RE.EXITRAN; 



RANDOM: MAR<-ACO; 




NOP; 




L«-MD-1; 




CONST«-L; 




MAR<-L*-AC0+1; 


ACO<-L; 




T*-MD; 




MAR«-AC0+1 




L<-T«-MD+T ; 




TOR*-L.L<-T 




FROMR*-L; 




MAR<-FROMR 




NOP; 




L<-MD; 




AC0«-L; 




LOOP: T*-ACO; 




L<-377 AND 


T; 


ACO*-L LCY 


8; 


L<-ACO; 




ACO«-L LSH 


1; 


L<-ACO ; 




ACO<-L LSH 


1; 


L*-ACO + T 




ACO«-L LSH 


1: 


T<-CONST + 


T + 1; 


L<-ACO + T 




ACO*-L LCY 


8; 


MAR<-T*-FR0MR+1; 


L*-TOR-T; 




L<-FR0MR+1 


SH = 0; 


FROMR<-L, TASK.: STORE; 


STORE: MD<-ACO, :LOOP; 



GET CONSTANT 13849 - 1 



GET COUNT-1 



GET INITIAL RANDOM NUMBER 
STORE RANDOM NUMBER IN ACO 

L *- 2t8 * R 
L <- 2t9 * R 
L <r (2tl0 +2tl) * R 

L *- (2tll +2t2 + 1) * R + C 



TEST FOR FROMR+1 = TOR 
IFSO GOTO EXITRAN 
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EXITRAN: ,:EXITECC; 



RETURNS NEW RANDOM NUMBER; 



TWO BUFFER COMPAIR ROUTINE - ACCESSED THROUGH 

JUMPRAM(2) 

THIS ROUTINE DOES A WORD FOR WORD COMPAIR AND RETURNS THE 

NUMBER OF WORDS NOT EQUAL 



1,2,N0TEQUAL.EQUAL; 
l.Z.COMPLOOP.EXITCOMP; 



COMPAIR: MAR<-ACO; 
NOP; 

L*-MD-1,TASK; 
FROMR«-L; 



GET FIRST BUFFER ADDR 



MAR«-L*-AC0+1; 
ACO«-L; 

L<-MD-1,TASK; 
TOR*-L: 



GET SECOND BUFFER ADDR 



MAR<-AC0+1; 

L<-0; 

ACO«-L; 

L<-MD-1,TASK; 

COUNT<-L; 



GET WORD COUNT 

STORE ERROR COUNT IN ACO 

INITIALIZE ERROR TO 



C0MPL00P:MAR«-L<-FR0MR+1; 
FROMR*-L; 
T*-MD; 



GET FIRST BUFFER WORD 



MAR«-L<-T0R+1; 

TOR«-L; 

L*-MD XOR T; 

,SH=0; 

L*-AC0+1, :NOTEQUAL; 
NOTEQUAL:AC0<-L; 
EQUAL: L<-COUNT-1,BUS = .TASK; 

COUNT*-L, :COMPLOOP; 



GET SECOND BUFFER WORD 



TEST FOR WORDS EQUAL 
IFSO GOTO EQUAL 

TEST FOR COUNT = , 
IFSO GOTO EXITCOMP 



EXITCOMP:.:EXITECC; 



THIS IS THE END 



